define add 
proc(n)
  i := n;
  s := 0;
  while i do s := s + i;  i := i-1 od;
  return := s
end;

define makeList 
proc(m)
  newlist := [1,2,3];
  return := newlist
end;

define funct
proc(a,b,c)
  return := proc(x) return:=b*x end
end;

n := add;
b := funct(proc (a,b) return := a + b end, 5, 3)(10);
q := proc (fnc) return := fnc end (add)(10);
s := n(10);
a := [1,2,3]||[4,5]